11 IFX>.THEN30
12 POKE53280,15:POKE53281,15
13 PRINT"[147][144][193]FTER THE PICTURE APPEARS, PRESS ANY"
14 PRINT"KEY TO RETURN TO [204][207][193][196][211][212][193][210]."
20 IFX=0THENX=1:LOAD"UNPACKER",8,1
30 IFX=1THENX=2:LOAD"PANDA.LNK",8,1
40 :
50 POKE249,224:POKE250,204
52 POKE251,0:POKE252,64
54 POKE253,0:POKE254,0
56 POKE255,0:SYS51462:SYS51459
60 :
65 EA=1:EY=3:CA=5:CL=7
70 T=RND(-TI)
80 :
85 POKE198,0
90 :
100 IFRND(1)<.1THENGOSUB1000
110 IFRND(1)<.05THENGOSUB2000
120 IFRND(1)<.03THENGOSUB3000
130 IFRND(1)<.04THENGOSUB4000
140 IFPEEK(198)=0THEN100
150 POKE198,0
155 :
160 SYS51459:POKE53281,6:POKE53280,4:PRINT"[147][144]"SPC(9);
165 OPEN15,8,15,"R0:STAR=STAR":INPUT#15,ER:CLOSE15:IFER<>63THEN999
170 PRINT"[210]ETURNING TO [204][207][193][196][211][212][193][210]..."
175 F$="HELLO CONNECT"
180 PRINT"LOADF$,8":PRINT"RUN"
190 POKE631,13:POKE632,13:POKE198,2
999 END
1000 :
1010 IFEA=1THENEA=2:GOTO1020
1015 EA=1
1020 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,11:POKE254,12
1030 POKE255,EA:SYS51462
1040 RETURN
1050 :
2000 :
2010 EY=4:GOSUB2020:FORDL=1TO100:NEXT
2015 EY=3:GOSUB2020:RETURN
2017 :
2020 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,11:POKE254,14
2030 POKE255,EY:SYS51462
2040 RETURN
2050 :
3000 :
3010 IFCA=5THENCA=6:GOTO3020
3015 CA=5
3020 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,29:POKE254,15
3030 POKE255,CA:SYS51462
3040 RETURN
3050 :
4000 :
4010 IFCL=7THENCL=8:GOTO4020
4015 CL=7
4020 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,0:POKE254,0
4030 POKE255,CL:SYS51462
4040 RETURN
4050 :